home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Grab Bag
/
Shareware Grab Bag.iso
/
007
/
tttool30.arc
/
WINDOTTT.DEM
< prev
next >
Wrap
Text File
|
1986-09-28
|
1KB
|
45 lines
Program Illustrating_Windowing;
{$I Decl.ttt}
{$I Fastwrit.TTT}
{$I Window.TTT}
Procedure FillUpScreen(Character : char;F,B : byte);
var I , J : integer;
begin
For I := 1 to 25 do
For J := 1 to 80 do
WriteAT(J,I,F,B,Character);
end;
begin
{snow := true; include if IBM CGA}
Clrscr;
FillupScreen('W',white,blue);
GotoXY(80,25); {move the cursor to a unique location}
MkWin(10,4,40,13,yellow,green,1);
WriteBetween(10,40,7,yellow,green,'This is the first window');
WriteBetween(10,40,9,yellow,green,'Maybe a pulldown menu ');
Delay(2000);
MkWin(20,11,50,20,red,lightgray,2);
WriteBetween(20,50,14,red,lightgray,'This is the second window');
WriteBetween(20,50,16,red,lightgray,'Perhaps a second menu ');
Delay(2000);
MkWin(45,6,80,25,magenta,cyan,3);
WriteBetween(45,80,14,magenta,cyan,'This is the third window');
WriteBetween(45,80,16,magenta,cyan,'Perhaps a help screen ');
Delay(5000);
Rmwin;
Delay(2000);
Rmwin;
Delay(2000);
Rmwin;
Mkwin(25,11,55,15,white,blue,4);
WriteBetween(25,55,13,white,blue,'Thats all there is to it!');
Read(kbd,Ch);
clrscr;
Writeln('Run DemoTTT.com for the main demo program');
write('Technojocks Turbo Toolkit');
end.